home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 2 / Apprentice-Release2.iso / Tools / Languages / MacHaskell 2.2 / emacs-tools / haskell-menu.el < prev    next >
Encoding:
Text File  |  1994-09-27  |  1.5 KB  |  44 lines  |  [TEXT/ttxt]
  1. ;;; haskell-menu.el -- support for Haskell menubar functions
  2. ;;;
  3. ;;; author :  Sandra Loosemore
  4. ;;; date   :  15 Jun 1994
  5. ;;;
  6.  
  7.  
  8. ;;; Add an entry to the main menu bar
  9.  
  10. (defvar menu-bar-haskell-menu (make-sparse-keymap "Haskell"))
  11. (define-key haskell-mode-map [menu-bar haskell]
  12.   (cons "Haskell" menu-bar-haskell-menu))
  13. (define-key inferior-haskell-mode-map [menu-bar haskell]
  14.   (cons "Haskell" menu-bar-haskell-menu))
  15. (define-key ht-mode-map [menu-bar haskell]
  16.   (cons "Haskell" menu-bar-haskell-menu))
  17.  
  18.  
  19. ;;; Define the functions.  They get listed on the menu in the reverse
  20. ;;; order that they're defined.
  21.  
  22. (define-key menu-bar-haskell-menu [haskell-tutorial]
  23.   '("Tutorial" . haskell-tutorial))
  24. (define-key menu-bar-haskell-menu [haskell-optimizers]
  25.   '("Optimizers..." . haskell-optimizers))
  26. (define-key menu-bar-haskell-menu [haskell-printers]
  27.   '("Printers..." . haskell-printers))
  28. (define-key menu-bar-haskell-menu [haskell-get-pad]
  29.   '("Scratch Pad" . haskell-get-pad))
  30. (define-key menu-bar-haskell-menu [haskell-compile]
  31.   '("Compile File..." . haskell-compile))
  32. (define-key menu-bar-haskell-menu [haskell-run-file]
  33.   '("Run File..." . haskell-run-file))
  34. (define-key menu-bar-haskell-menu [haskell-load]
  35.   '("Load File..." . haskell-load))
  36. (define-key menu-bar-haskell-menu [haskell-report-type]
  37.   '("Type Check Expression..." . haskell-report-type))
  38. (define-key menu-bar-haskell-menu [haskell-run]
  39.   '("Run Dialogue..." . haskell-run))
  40. (define-key menu-bar-haskell-menu [haskell-eval]
  41.   '("Eval Expression..." . haskell-eval))
  42.  
  43. (provide 'haskell-menu)
  44.